if request("sortby") <> "" AND inStr(lcase(view_luStates_sql),"order by") = 0 then view_luStates_sql = view_luStates_sql + " ORDER BY " & request("sortby")
end sub
sub db_delete_view_luStates
sql = "DELETE FROM " & _ ""
'response.write sql
on error resume next
cn.Execute(sql)
if err.number <> 0 then
b_error = true
end if
on error goto 0
end sub
do_search = request("do_search")
''' request form keys
StateID = request("StateID")
''' request action
action = lcase(request("action"))
''' action case handler
select case action
case "select_edit_lustates"
' select the requested key record from database
if StateID <> "" then
db_select_edit_luStates
else
b_error = true
error_list.add "edit_edit_luStates", "Specify record to select."
end if
case "insert_edit_lustates"
' request form data and insert a new record into database
validate_edit_lustates
if not b_error then
db_insert_edit_lustates
end if
case "update_edit_lustates"
' request form data and update an existing database record
validate_edit_lustates
if not b_error then
if StateID <> "" then
db_update_edit_lustates
else
b_error = true
error_list.add "update_edit_lustates", "Specify record to update."
=get_options ("SELECT RegionId, Region FROM luRegions", RegionID)
%>
</select>
</td>
</tr>
<tr>
<td align=right class=dataTD colspan=6>
<% if StateID = "" then %><input type=submit name=insert_button value=insert> <% end if %>
<% if StateID <> "" then %><input type=submit name=delete_button value=delete onclick="document.edit_luStates.action.value = 'delete_edit_luStates'"> <% end if %>
<% if StateID <> "" then %><input type=submit name=update_button value=update><% end if %>
</td>
<input type=hidden name="action" value="<% if StateID <> "" then %>update<% else %>insert<%end if %>_edit_luStates"></tr>